1 A 1 B 1 C Lbl 1 C+1 C Locate A,B,"*" A+1 A C<21 Goto 1 Lbl 2 C+1 C Locate A,B,"*" B+1 B C<27 Goto 2 Lbl 3 C+1 C Locate A,B,"*" A-1 A C<47 Goto 3 Lbl 4 C+1 C Locate A,B,"*" B-1 B C<52 Goto 4 Lbl 5 C+1 C Locate A,B,"*" A+1 A C<71 Goto 5 Lbl 6 C+1 C Locate A,B,"*" B+1 B C<75 Goto 6 Lbl 7 C+1 C Locate A,B,"*" A-1 A C<93 Goto 7 Lbl 8 C+1 C Locate A,B,"*" B-1 B C<96 Goto 8 Lbl 9 C+1 C Locate A,B,"*" A+1 A C<113 Goto 9 Lbl A C+1 C Locate A,B,"*" B+1 B C<115 Goto A Lbl B C+1 C Locate A,B,"*" A-1 A C<131 Goto B Lbl C C+1 C Locate A,B,"*" B-1 B C<132 Goto C Lbl D C+1 C Locate A,B,"*" A+1 A C<149 Goto D 8 A 7 B Lbl E Locate A,B,"STAR" B<7 Locate A,B+1,"****" B-1 B B>1 Goto E 1 A 3 B Lbl F A>1 Locate A-1,B,"*****" Locate A,B,"EATER" A+1 A A<11 Goto F Lbl G If Getkey 31 Then For 1 A To 2 Locate 7,5,"PRESS EXE" Next For 1 A To 2 Locate 7,5," " Next Else Goto H IfEnd Goto G Lbl H
|